home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TSC.LZH / GRAPH3.TDL < prev    next >
Text File  |  1987-11-05  |  2KB  |  61 lines
  1. {*GRAPH3.TDL of TSC - Copyright 1986-88 by Supratech Inc.}
  2. {** A special format file for providing GRAPH3 unit definitions to the
  3.     TSC program. It is needed if GRAPH3 unit will be used.
  4. **}
  5.  
  6. UNIT GRAPH3;
  7. INTERFACE
  8. USES CRT;
  9. CONST
  10.   NORTH = 0;
  11.   EAST  = 90;
  12.   SOUTH = 180;
  13.   WEST  = 270;
  14. PROCEDURE GRAPHMODE;
  15. PROCEDURE GRAPHCOLORMODE;
  16. PROCEDURE HIRES;
  17. PROCEDURE HIRESCOLOR(COLOR: INTEGER);
  18. PROCEDURE PALETTE(N: INTEGER);
  19. PROCEDURE GRAPHBACKGROUND(COLOR: INTEGER);
  20. PROCEDURE GRAPHWINDOW(X1,Y1,X2,Y2: INTEGER);
  21. PROCEDURE PLOT(X,Y,COLOR: INTEGER);
  22. PROCEDURE DRAW(X1,Y1,X2,Y2,COLOR: INTEGER);
  23. PROCEDURE COLORTABLE(C1,C2,C3,C4: INTEGER);
  24. PROCEDURE ARC(X,Y,ANGLE,RADIUS,COLOR: INTEGER);
  25. PROCEDURE CIRCLE(X,Y,RADIUS,COLOR: INTEGER);
  26. PROCEDURE GETPIC(VAR BUFFER; X1,Y1,X2,Y2: INTEGER);
  27. PROCEDURE PUTPIC(VAR BUFFER; X,Y: INTEGER);
  28. FUNCTION  GETDOTCOLOR(X,Y: INTEGER): INTEGER;
  29. PROCEDURE FILLSCREEN(COLOR: INTEGER);
  30. PROCEDURE FILLSHAPE(X,Y,FILLCOL,BORDERCOL: INTEGER);
  31. PROCEDURE FILLPATTERN(X1,Y1,X2,Y2,COLOR: INTEGER);
  32. PROCEDURE PATTERN(VAR P);
  33. PROCEDURE BACK(DIST: INTEGER);
  34. PROCEDURE CLEARSCREEN;
  35. PROCEDURE FORWD(DIST: INTEGER);
  36. FUNCTION  HEADING: INTEGER;
  37. PROCEDURE HIDETURTLE;
  38. PROCEDURE HOME;
  39. PROCEDURE NOWRAP;
  40. PROCEDURE PENDOWN;
  41. PROCEDURE PENUP;
  42. PROCEDURE SETHEADING(ANGLE: INTEGER);
  43. PROCEDURE SETPENCOLOR(COLOR: INTEGER);
  44. PROCEDURE SETPOSITION(X,Y: INTEGER);
  45. PROCEDURE SHOWTURTLE;
  46. PROCEDURE TURNLEFT(ANGLE: INTEGER);
  47. PROCEDURE TURNRIGHT(ANGLE: INTEGER);
  48. PROCEDURE TURTLEDELAY(DELAY: INTEGER);
  49. PROCEDURE TURTLEWINDOW(X,Y,W,H: INTEGER);
  50. FUNCTION  TURTLETHERE: BOOLEAN;
  51. PROCEDURE WRAP;
  52. FUNCTION  XCOR: INTEGER;
  53. FUNCTION  YCOR: INTEGER;
  54.  
  55. IMPLEMENTATION
  56. END.
  57.  
  58. ENDLIB    {must be the last legal symbol read}
  59.  
  60. {*----- end of GRAPH3.TDL -----}
  61.